home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / misc_pto / basic-c / test4.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-21  |  276 b   |  19 lines
  1. rem ****************
  2. rem * TEST PROGRAM *
  3. rem ****************
  4. cls
  5. move 1 1
  6. input "press enter to begin", y
  7. move 10 35
  8. z = 2
  9. for x = 10 to 15
  10.     y = x*3
  11.     move x y
  12.     print "[";x;"]";
  13.     beep 2
  14.     sleep 2
  15. next
  16. move 23 1
  17. input "press enter to end test program", y
  18. end
  19.